Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/goal.dcr/00001_movie script.ls

Text File | 2017-09-21 | 3.6 KB | 115 lines

global userid, userpw, userpm, userpg, repeatmode

on startMovie
  set the textHeight of field "congText" to 16
  set the textHeight of field "checktext" to 16
  set the textHeight of field "infotext" to 16
  set repeatmode to 0
  cursor([the number of cast "onCursor", the number of cast "onCursor" + 1])
end

on stopMovie
end

on checkmedal
  if repeatmode then
    exit
  end if
  if voidp(userid) or voidp(userpm) or (userid = "guest") then
    alert("You can not enter as guest.")
    gotonetmovie("menu.dcr")
    exit
  end if
  put userid into field "userID"
  put userpg & RETURN & pmtopoint(char 9 of userpm) & RETURN & pmtopoint(char 10 of userpm) & RETURN & pmtopoint(char 11 of userpm) & RETURN & pmtopoint(char 12 of userpm) & RETURN & pmtopoint(char 13 of userpm) & RETURN & pmtopoint(char 14 of userpm) into field "checktext"
  if (userpg >= 10000) and (char 9 of userpm >= 9) and (char 10 of userpm >= 9) and (char 11 of userpm >= 9) and (char 12 of userpm >= 9) and (char 13 of userpm >= 9) and (char 14 of userpm >= 9) then
    set addpoint to 10000
    set medalkind to "ã‡"
  else
    if (userpg >= 5000) and (char 9 of userpm >= 7) and (char 10 of userpm >= 7) and (char 11 of userpm >= 7) and (char 12 of userpm >= 7) and (char 13 of userpm >= 7) and (char 14 of userpm >= 7) then
      set addpoint to 5000
      set medalkind to "ã‚"
    else
      if (userpg >= 2000) and (char 9 of userpm >= 2) and (char 10 of userpm >= 2) and (char 11 of userpm >= 2) and (char 12 of userpm >= 2) and (char 13 of userpm >= 2) and (char 14 of userpm >= 2) then
        set addpoint to 3000
        set medalkind to "ìŠ"
      else
        alert("You can not enter.")
        gotonetmovie("menu.dcr")
        exit
      end if
    end if
  end if
  put medalkind into field "medalKind"
  put addpoint into field "addPoint"
  repeat with p = 9 to 14
    put 0 into char p of userpm
  end repeat
  getnettext("http://202.224.191.2/cgi-bin/EcOpe.cgi?" & "name=" & userid & "&" & "password=" & userpw & "&" & "amount=+" & addpoint & "&" & "parameter=" & userpm)
end

on pmtopoint upm
  if upm = 9 then
    set upm to 10
  end if
  set upm to integer(upm * 10)
  return upm
end

on gameback
  set the puppet of sprite clickOn() to 0
  go("1")
end

on gamequit
  gotonetmovie("menu.dcr")
  go("move")
end

on rolloverbtn
  set rcnum to the mouseCast
  if rcnum > 0 then
    set rcname to string(the name of cast rcnum)
    if item 2 of rcname = "off" then
      repeat with s = 44 to 45
        if the castNum of sprite s = rcnum then
          set the puppet of sprite s to 1
          set the castNum of sprite s to rcnum + 1
          next repeat
        end if
        set the puppet of sprite s to 0
      end repeat
    else
      if item 2 of rcname = "on" then
        repeat with s = 44 to 45
          if the castNum of sprite s = rcnum then
            if the mouseDown and (clickOn() = s) then
              set the castNum of sprite s to rcnum + 1
              do(item 1 of rcname)
            end if
          end if
        end repeat
      else
        if item 2 of rcname = "click" then
          repeat with s = 44 to 45
            if the castNum of sprite s = rcnum then
              if the mouseUp then
                set the castNum of sprite s to rcnum - 1
                next repeat
              end if
            end if
          end repeat
        else
          repeat with s = 44 to 45
            set the puppet of sprite s to 0
          end repeat
        end if
      end if
    end if
  else
    repeat with s = 44 to 45
      set the puppet of sprite s to 0
    end repeat
  end if
end